[Delphi]如何利用Sendmessage或Postmessage函数？？？？~

来源：百度知道 编辑：UC知道 时间：2024/05/15 03:33:04
我想用Delphi写一个程序向在前台（或后台）运行的一个记事本（sample.txt那种）发送一串字符串'hello ! You are successed',在"百度知道"查了很多文章,都不太理想(最好有源代码)!而且我新鸟一个,希望可以说得详细点!谢谢高手啦!

//如果只打开一个记事本的话用下面的代码，如果是有多个的话，需要修改一下枚举窗口时的窗口名
//if pos(sample.txt - 记事本',StrPas(WinText))>0 then

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, Forms, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
public
end;

var
Form1: TForm1;
HEdit: THandle;

implementation

{$R *.dfm}

//向控件发送字符
procedure SendDBCSString(hFocus: HWND; const sSend: string);
var
k : integer;
ch : byte;
begin
k := 1;
while k <= Length(sSend) do begin
ch := byte(sSend[k]);
if Windows.IsDBCSLeadByte(ch) then
begin
Inc(k);
SendMessage(hFocus, WM_IME_CHAR, MakeWord(byte(sSend[k]), ch), 0);
end
else
SendMessag